home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue30 / vssdigi / VSSDIGI.ZIP / Examples / misc / umatrix.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-12-19  |  1.5 KB  |  69 lines
  1. //******************************************************************************
  2. //                        VARIAN LED STUDIO v2.00
  3. //               (c) VARIAN SOFTWARE SERVICES NL 1996-1997
  4. //                          ALL RIGHTS RESERVED
  5. //******************************************************************************
  6.  
  7. unit umatrix;
  8.  
  9. interface
  10.  
  11. uses
  12.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   ExtCtrls, StdCtrls, vrclass, vrmatrix, vrbltr;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     Timer1: TTimer;
  20.     VrBlotter1: TVrBlotter;
  21.     VrMatrix1: TVrMatrix;
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure Button1Click(Sender: TObject);
  24.     procedure Button2Click(Sender: TObject);
  25.     procedure Timer1Timer(Sender: TObject);
  26.   private
  27.     S: string;
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. const
  40.   IntroText = '                    Thank you for using ' +
  41.             '"Varian Led Studio 2.0"...............Don''t '+
  42.             'forget to register this evaluation copy.............';
  43.  
  44.  
  45. procedure TForm1.Button1Click(Sender: TObject);
  46. begin
  47.   Timer1.Enabled := true;
  48. end;
  49.  
  50. procedure TForm1.Button2Click(Sender: TObject);
  51. begin
  52.   Timer1.Enabled := false;
  53. end;
  54.  
  55. procedure TForm1.FormCreate(Sender: TObject);
  56. begin
  57.   S := IntroText;
  58. end;
  59.  
  60. procedure TForm1.Timer1Timer(Sender: TObject);
  61. begin
  62.   if Length(S) > 0 then Delete(S, 1, 1)
  63.  else  S := IntroText;
  64.   VrMatrix1.Text := S;
  65. end;
  66.  
  67.  
  68. end.
  69.